Top 10k strings from Fractal + Bells + Tapscreen (1996)(Datasoft).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 uses recursion and a string as the 'stack', depth first
   1 u$(t*u*l+u*l+1
   1 u$'"HIGHLIGHT(ENTER=NONE) ";
   1 u$ < page*wd
   1 t*u*l+u*l+l):
   1 swap 23,45,..
   1 swap 12,34,..
   1 replace,lose .tap
   1 reject,no change
   1 poke scr code
   1 hilighted bell
   1 grandshire (when I figure how 2 do it)
   1 fractal   
   1 flush buffer
   1 end of page
   1 dodge - swap 34,56,..
   1 do highlight
   1 choose method
   1 cant print yet
   1 buffer,index
   1 bold;<bell>;unbold;rest...
   1 b$="1234567890ABCDEF"(
   1 Validate no. in t$
   1 Tree fractal drawer
   1 TAPscreen \
   1 TAPSCREEN 1.0               by Datasoft 26/3/96
   1 Print/Play (q-buffered)
   1 Print Init
   1 Plain Hunt
   1 LPrint Init
   1 John Garner 29/2/96
   1 Call Print
   1 CONVERT"''"Searching directory for single"'".TAP screen file":
   1 BetaDOS extra directory tracks?
   1 Bells     
   1 BELLS - PLAIN HUNT/BOB
   1 ;"ZERO IS SILLY!":
   1 ;"OUT OF RANGE":
   1 ;"ENTER=replace SPACE=reject E=DEL"
   1 ;"ANY KEY FOR NEXT PAGE...";:
   1 .SPACE=replace"'"ENTER=ignore"'"E=ERASE"''
   1 (wd/(l+sp)):
   1 "p+512+24":
   1 "TREBLE LINE?(Y/N) ";
   1 "PLAIN HUNT/BOB?(H/B) ";
   1 "PAGE SIZE(60) ";
   1 "OUTPUT SCREEN/PRINTER(S/P) ";
   1 "NO. BELLS ";l:
   1 "LPRINT Ringing Line"''"Please enter format details,"'"default value in brackets, then"'"wait."''"(Press Q to quit)"
   1 "DISK DIRECTORY FINISHED":
   1 "DEPTH (1-6):";d:
   1 "COL. WIDTH(80) ";
   1 "COL. SPACE(2) ";
   1 "AUTOMATIC +D TAP 
   1 """";S$;""" ? ":
   1  t$(t)<"0"